home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / netz / mailfilter / zpoint / betreff-filter.zprx next >
Text File  |  1994-07-31  |  2KB  |  115 lines
  1. /*
  2.     $VER: Betreff-Filter.zprx 1.1 (31.7.94) Copyright (c) Jürgen Kohrmeyer
  3.  
  4.     Dies ist ein ARexx-Skript für Zodiac's  Point,  mit  dem  man  auf
  5.     bequeme Weise den Betreff der aktuellen Mail in den Betreff-Filter
  6.     übernehmen  kann. Dabei werden  vorangestellte  'Re:' oder 'Re^x:'
  7.     entfernt, und dem Betreff  jeweils ein '#?' oder '*' vorangestellt
  8.     und  angehängt. Im  Betreff vorkommende  Jokerzeichen werden durch
  9.     Voranstellen  eines Hochkommas  ausgeschaltet. Nach  erfolgreicher
  10.     Übernahme in den  Filter öffnet sich das Fenster  und  der  gerade
  11.     übernommene Betreff ist selektiert.
  12.  
  13.     Sie dürfen dieses Skript beliebig kopieren,  solange  es  zusammen
  14.     mit  Zodiac's  Point  eingesetzt wird, aber verändern Sie es bitte
  15.     nicht ohne Erlaubnis des Autors.
  16.  
  17.     Sie erreichen den Autor wie folgt:
  18.  
  19.        Jürgen Kohrmeyer       Tel. : +49 5402 5195
  20.        Oststraße 2            EMail: j_kohrmeyer@wilam.north.de
  21.        49143 Bissendorf
  22.  
  23.     Hinweise zur Installation:
  24.  
  25.     Kopieren sie dieses Skript in  das  Rexx-Verzeichnis  von  ZP  und
  26.     fügen  sie  danach  der  Datei  'fkeys.zp'  auf Wunsch den Eintrag
  27.     "F1:SYS:Rexxc/RX ZPOINT:Rexx/Betreff-Filter.zprx %s" hinzu.
  28. */
  29.  
  30.  
  31. /* Ergebnisse anfordern */
  32.  
  33. OPTIONS RESULTS
  34.  
  35.  
  36.  
  37. /* Name des Screens auslesen */
  38.  
  39. PARSE ARG screenname
  40. ADDRESS VALUE screenname
  41.  
  42.  
  43.  
  44. /* Script beenden wenn wir uns nicht innerhelb eines Brettes befinden */
  45.  
  46. WHICHLEVEL
  47.  
  48. IF result ~= 'BOARD' THEN
  49.    EXIT(0)
  50.  
  51.  
  52.  
  53. /* Betreff auslesen */
  54.  
  55. MESSAGEINFO SUBJECT
  56.  
  57. IF rc ~= 0 THEN EXIT(10)
  58.  
  59. betreff.pattern    = result
  60. betreff.emppattern = ''
  61. betreff.newsgroup  = ''
  62. betreff.mailtype   = ''
  63. betreff.action     = ''
  64.  
  65.  
  66.  
  67. /* Testen, ob MailFilter gestartet ist. Wenn nicht, dann jetzt starten */
  68.  
  69. IF ~SHOW(PORTS,'MAILFILTER') THEN DO
  70.    ADDRESS COMMAND
  71.    'run >NIL: <NIL: MAILFILTER:MailFilter'
  72.  
  73.    DO 3 WHILE ~SHOW(PORTS,'MAILFILTER')
  74.       'WaitForPort MAILFILTER'
  75.    END
  76.  
  77.    IF rc = 5 THEN DO
  78.       SAY 'Kann MailFilter nicht starten!'
  79.       EXIT(10)
  80.    END
  81. END
  82.  
  83.  
  84.  
  85. /* Aktuellen ZPoint-Screen einstellen */
  86.  
  87. ADDRESS MAILFILTER
  88.  
  89. GETATTR screen
  90.  
  91. IF result ~= screenname THEN DO
  92.    DEACTIVATE
  93.    SETATTR screen screenname
  94. END
  95.  
  96.  
  97.  
  98. /* Betreff in den Betreff-Filter übernehmen und das */
  99. /* Fenster auf dem aktuellen MicroDot-Screen öffnen */
  100.  
  101. ADDITEM TO subject STEM betreff CONVERT POPUP
  102.  
  103.  
  104.  
  105. /* Prefs speichern */
  106.  
  107. IF rc = 0 THEN
  108.    SAVE
  109.  
  110.  
  111.  
  112. /* Beenden */
  113.  
  114. EXIT(0)
  115.